(DEFUN C:PLWIDS ()
  (setq sel-vertex (nentselp))
  (IF (AND sel-vertex (setq ename (car sel-vertex))(EQ (CDR (ASSOC 0 (ENTGET ename))) "VERTEX"))
    (PROGN
      (SETQ this-vertex (ENTGET ename)
            next-vertex this-vertex
      )
      (SETQ cur-start-wid (CDR (ASSOC 40 this-vertex))
            cur-end-wid (CDR (ASSOC 41 this-vertex))
      )
      (PRINC "\nCurrent start width = ")
      (PRINC cur-start-wid)
      (PRINC "\nCurrent end width = ")
      (PRINC cur-end-wid)
      (IF ureal nil (LOAD "ureal" "\nFile UREAL.LSP not loaded! "))
      (SETQ start-wid (ureal 1 "" "New start width" (IF start-wid start-wid nil)))
      (SETQ end-wid (ureal 1 "" "New end width" (IF end-wid end-wid nil)))
      (WHILE (/=(CDR (ASSOC 0 next-vertex)) "SEQEND")
        (SETQ next-vertex (ENTGET (ENTNEXT (CDR (ASSOC -1 next-vertex)))))
      )
      (SETQ pline-ent (ENTGET (CDR (ASSOC -2 next-vertex))))
      (SETQ step-vertex pline-ent)
      (WHILE (NOT (EQUAL step-vertex this-vertex))
        (SETQ prev-step-vertex step-vertex
              step-vertex (ENTGET (ENTNEXT (CDR (ASSOC -1 step-vertex))))
        )
      )
      (IF (EQ (CDR (ASSOC 0 prev-step-vertex)) "VERTEX")
        (SETQ prev-vertex prev-step-vertex)
        (SETQ prev-vertex NIL)
      )
      (IF (EQ (CDR (ASSOC 0 (ENTGET (ENTNEXT (CDR (ASSOC -1 step-vertex)))))) "VERTEX")
        (SETQ next-vertex (ENTGET (ENTNEXT (CDR (ASSOC -1 step-vertex)))))
        (SETQ next-vertex NIL)
      )
      (IF prev-vertex
        (PROGN
          (SETQ prev-vertex (SUBST (CONS 41 start-wid)(ASSOC 41 prev-vertex) prev-vertex))
          (ENTMOD prev-vertex)
          (ENTUPD (CDR (ASSOC -1 prev-vertex)))
        )
      )
      (SETQ this-vertex (SUBST (CONS 40 start-wid)(ASSOC 40 this-vertex) this-vertex))
      (SETQ this-vertex (SUBST (CONS 41 end-wid)(ASSOC 41 this-vertex) this-vertex))
      (ENTMOD this-vertex)
      (ENTUPD (CDR (ASSOC -1 this-vertex)))      
      (IF next-vertex
        (PROGN
          (SETQ next-vertex (SUBST (CONS 40 end-wid)(ASSOC 40 next-vertex) next-vertex))
          (ENTMOD next-vertex)
          (ENTUPD (CDR (ASSOC -1 next-vertex)))
        )
      )
    )
  )
  (PRINC)
)